DNA yield
Total amount of DNA extracted from the 150 ul subset of the bead-beaten sample.
all_data %>%
group_by(Taxon,Extraction) %>%
summarise(value = sprintf("%.0f±%.0f", mean(extract), sd(extract))) %>%
pivot_wider(names_from = Extraction, values_from = value) %>%
tt(caption = "Mean and standard deviation of total DNA nanograms")
tinytable_28a74i0azlc5qs0fzoju
Mean and standard deviation of total DNA nanograms
| Taxon |
DREX |
EHEX |
ZYMO |
| Amphibian |
482±546 |
1733±1145 |
471±347 |
| Bird |
13±12 |
54±45 |
73±127 |
| Control |
2±3 |
1±0 |
0±0 |
| Mammal |
265±214 |
904±672 |
445±394 |
| Reptile |
162±128 |
250±171 |
102±68 |
all_data %>%
ggplot(aes(x=Extraction,y=extract))+
geom_boxplot() +
facet_grid(. ~ Taxon, scales = "free") +
labs(y="DNA yield (ng)",x="Extraction method")

all_data %>%
filter(Taxon != "Control") %>%
lmerTest::lmer(extract ~ Extraction + (1 | Sample) + (1 | Species), data = ., REML = FALSE) %>%
broom.mixed::tidy() %>%
tt()
tinytable_lgdbg7uvb39s4yilzgk8
| effect |
group |
term |
estimate |
std.error |
statistic |
df |
p.value |
| fixed |
NA |
(Intercept) |
120.70599 |
125.49705 |
0.9618233 |
16.14808 |
3.503209e-01 |
| fixed |
NA |
ExtractionEHEX |
620.27971 |
74.78157 |
8.2945532 |
153.30986 |
5.196360e-14 |
| fixed |
NA |
ExtractionZYMO |
39.65796 |
74.42689 |
0.5328445 |
153.24421 |
5.949131e-01 |
| ran_pars |
Sample |
sd__(Intercept) |
164.00812 |
NA |
NA |
NA |
NA |
| ran_pars |
Species |
sd__(Intercept) |
374.85139 |
NA |
NA |
NA |
NA |
| ran_pars |
Residual |
sd__Observation |
400.80106 |
NA |
NA |
NA |
NA |